home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / util / misc / MultiUser18ext.lha / MultiUser / Extern / Modula / AutoLogin.mod < prev    next >
Encoding:
Text File  |  1994-03-07  |  1.1 KB  |  63 lines
  1. (*
  2.  
  3.     Frank J. Beckamnn  (26.10.1993)
  4.  
  5.     AutoLogin - login a user with name "auto"
  6.  
  7.  
  8.     Usage:  Autologin
  9.  
  10.         I have the following linne inn my passwd-file:
  11.         
  12.         auto||1|0|System Autologin|SYS:home/auto|
  13.         
  14.         I use "Autologin" in my User-startup instead of 
  15.         "Logout gui global".
  16.         Then I run a skript with name Login-startup:
  17.         
  18.         Wait 3
  19.         Logout GUI GLOBAL
  20.  
  21.         This has the advantage that I don't have to login before
  22.         the Workbench and all my tools (screenblanker etc.) in 
  23.         WBStartup are startet. Then I login into all tasks which
  24.         belong to the Workbench. This wouldn't be if I would only
  25.         "run login ..." in my User-startup. I hope you understand
  26.         what I'm trying to explain.
  27.  
  28. *)
  29.  
  30. MODULE AutoLogin;
  31.  
  32. FROM SYSTEM IMPORT
  33.  ADR, TAG, ADDRESS;
  34.  
  35. FROM InOut IMPORT
  36.  WriteCard, WriteLn;
  37.  
  38. FROM UtilityD IMPORT
  39.  TagItem, tagEnd;
  40.  
  41. FROM MultiUserD IMPORT
  42.  muTags;
  43. FROM MultiUserL IMPORT
  44.  LoginA;
  45.  
  46.  
  47. CONST
  48.  version=ADDRESS{ADR("$VER: AutoLogin 39.1   26.10.1993\n")};
  49.  
  50.  
  51. VAR
  52.  tags: ARRAY [0..3] OF TagItem;
  53.  user: LONGCARD;
  54.  
  55.  
  56. BEGIN
  57.  user:=LoginA(TAG(tags,
  58.  muGlobal, -1,
  59.  muUserID, ADR("auto"),
  60.  muPassword, ADR(""),
  61.  tagEnd));
  62. END AutoLogin.
  63.